-- Desaturate gradient



local x, y, h, s, v

for y = 0, height - 1 do

  for x = 0, width -1 do

    h, s, v = get_hsv(x, y)

    s = s * (x / width)

    set_hsv(x, y, h, s, v)

  end

  progress(y / height)

end



